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Page 5 - bottom - add 

This procedure yields the TRANSPOSE o£ the Eigenvectors. The matrix 
identification is then reversed on printing to yield proper subscripting. 

Page 8 - OVERFLOW CHECK SWITCH 
Should be set to PROGRAM . 

Phase 3 basic and Phase 3 Auto Divide -- "TYPEV" block should read: 

02758 25 0397102426 To Type + 6, Out 3-2 

02770 25 0397302427 To Type + 8, Out J 

02782 25 0396502428 To Type + 12, Out I- 1 

02794 25 0396702429 To Type + 14. Out I 



TABLE OF CONTENTS 

ABSTRACT - 

PROBLEM DEFINITION 

1620 PROGRAM METHOD 

INPUT- OUTPUT 

MACHINE REQUIREMENTS 

PROGRAM OPERATION - GENERAL 

PHASE 1 
PHASE 2 
PHASE 3 

FLOW CHARTS: 

PHASE 1 
PHASE 2 
PHASE 3 

PRECISION AND TIMING 

PROCEDURAL OPTIONS 

REFERENCES 

SAMPLE PROBLEM 

PROGRAM LISTING 



6/14/61 



/ 



FILE NO. 



ABSTRACT 



05.0. C03 IbM 1&2C-E1GENVALUES OF REAL SYMMETRIC HATRICES ON THE 1620 DATA 

PROCESSING SYSTEM •CARD- 
AVAILABLE 1ST QUARTER 19o2 

Auri-tUR- NEIL LEWIS 
IBK 

816 KAPIOLANl BLVD. 
HONOLULU 13, HAt»A 1 1 



DIRECT INQUIRIES TO AUTHOR 



WILL SOLVE FOR THE EIGENVALUE* ANL. ASSOCIATED EIGENVECTOR* 
OF A REAL, SYMMETRIC MATRIX TO ORDER 50. FLOATING POINT 
ARITHMETIC IS USED FOR ALL CALCULATIONS IN PHASE 2 AND 3. 
\U OTHER SUBROUTINES ARE USED IN ANY OF THE THRfcc PHASES. 
20,000 POSITIONS OF CORE STORAGE ARE UTILIZED BASIC 1620 
CARu SYSTEM WITH DIRECT DIVISION AND INDIRECT ADDRESSING. 



ThIS PROGRAM AND ITS DOCUMENTATION mtkZ WRITTEN BY AN 

IcM EMPLOYEE. IT -AS OEVcuPEO FuR A SPECIFIC PURPOSE AND 
SuBhl T TED FOR GENERAL DISTRIBUTION TO INTERESTED PART I Ei 
IN t-CPE THAT IT MlviHT PROVE HELPFUL TO OTHER MEMBERS OF 
Th- CAT A PROCESSING COMMUNITY. THE PROGRAM AID IIS 
UuCUNENTATIU* ARE ESSENTIALLY IN THE AUTHORS ORIGINAL 
FORM. IBM SERVES AS THL DISTRIBUTION AGENCY IN 
SUPPLYING THIS PROuRAK. wUfcStlONS CONCERNING THE USE OF 
ThE PROGRAM SHOULD BE DIRECTED TO THE AUTHORS ATTENI ICN. 
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PROBLEM DKFTHITIOH 



The physical reasons for wishing to solve the eigenvalue problem come 
from a wide variety of fields, including vibration analysis, factor analysis 
and systems in dynamic equilibrium- Probably the most basic reason comes 
from the frequent need to solve a system of n linear differential equations 
in n unknowns: 

x i = a ll x l + + a ln x n 

x 2 = "21 x l + + 

K. = ^l + ■ • ■ - + Wn 

w , lt 

If the column vector ( *i ■ - • • ) is denoted by x, then this can be 
written as a single matrix equation 

x' = Ax 

where A is the n x n coefficient matrix. 

A solution to this equation in the form x = Ve** is sought, where 
V is a column vector. This leads to the equation Ve** = AVe* - * or 
( A-Xl ) ve** = o. Thus an eigenvalue, together with a corresponding 
eigenvector V, yields a solution x = Ve** of the matrix differential 
equation. 

For an N x N square, symmetrical matrix, A, the problem to be solved 
is to find a number X. and a vector V such that AV = XV. Each X. is referred 
to as an eigenvalue, characteristic root or latent root of the matrix A, and 
each related H-dimensional vector, V, is called an eigenvector or character- 
istic vector corresponding to the eigenvalue. The eigenvectors are mutually 
orthogonal, i.e., the inner or scalar product of any two resulting eigen- 
vectors equals zero: 

( V ± , Vj ) = 0. 
It can be shown that a solution exists if and only if 
DET J A- XI | =0, where I is an H** 1 order unit matrix. This relation- 
ship results in an N*** 1 degree polynomial which has, in general, N real 
eigenvalues or roots. 
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PROBLEM DEFIHITION COHT. 



The Jacobi Method 
(1) 

C G. J. Jacob! has shown a Method of reducing a real symmetric 
matrix A to diagonal form by a series of plane rotations . He proved that 
the diagonal entries of this reduced matrix are approximately the associated 
eigenvalues of A. Further, the of f -diagonal elements can be aade smaller 
than any pre -as signed value, A. 

A plane rotation is an orthogonal, unitary matrix of the form 



J iJ 



cos & 



sin 



ij 



ij 



cos e^j 



'ij 



Where B is a function of a^, a^j, a^of the original matrix A. Note that 

u ij = Ui j • If e 15 cno8en 8ucn taat 6 = x / 2 Taa " 1 * 2 "lj/ " a J0 ^ 

then the element a^ reduces to zero upon application of the similarity 
transformation A jtf^j and is said to be annihilated. Repeated 



operations of the form 



1 ij 



• • ,.U: 



k"ij 



the matrix A would eventually lead to a matrix consisting of the approximate 
eigenvalues along the principal diagonal and the off '-diagonal elements less 
than any pre assigned value, A, provided k ie made large enough. 

Jacobi annihilated the largest off-diagonal elements by the method shown 
above- The eigenvectors are then found by the matrix product 

k°ij * ' lU * i 1 "fcere k is the number of rotations required to form 

the eigenvalues, above. 
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1620 PROGRAM METHOD 



The classical Jacobi method requires the evaluation of arctangent and 
square root functions. The method also necessitated a complete search of the 
matrix to determine the largest off -diagonal element which was then rotated. 
In the interest of speed and precision, the following method is employed in 
the 1620 program. 

The rotation angle, 8, is approximated by: 

Tan e/2 = r ; r = Hj / 2 ( Hi - ajj ) , 

if the absolute value of r is less than Tan 22-5°. 

If r is greater than or equal to Tan 22.5°, then 45° is used for 6- 

If r is less than or equal to -Tan 22.5°, then -1*5° is used for B. 

The values of Sin 8 and Cos B which are needed for the rotation are then: 

i-r 2 

Cos B = 

i + r 2 

which involve only simple arithmetic operations. 
The selection of the elements to be rotated is: 

1) During phase 1 a value for A, the precision required, is entered. Later, 
all off-diagonal elements will be rotated until they are less than A. 

An initial search argument, E , is generated in phase 1 also. 

2) During phase 2 all off-diagonal elements greater than E are rotated 
until all ay ( i ^ j ) are less than E, whereupon E is replaced by 

E/10 and so on until E is less than A at which time phase 2 terminates. 

5) After each rotation, a sense switch is interrogated to determine if 
the operator desires the rotation angle to be punched out for liter 
use in phase 3- 



2T 

Sin 8 = , 
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1620 PROGRAM METHOD COHT. 



1) 


Hi 


2) 


Hi 


3) 


a jj 


*) 


H* 


5) 




where s 



s 2 ) ♦ 


s 




l jj * 2 + 


2 


*J j s c 




2 


a i(j s c 



Phase 2 Calculations: 

K?) 

Since only the i tn and j* 11 rows and columns are affected by any one 
transformation, the matrix Multiplications are replaced by the equivelant 
calculations and substitutions: 



a ii s2 + 
Hk c + a jk s 

k = 1,2,3, ,H; but f i or j. 

\jk c " aik 8 

31 n and c = Cos 6 and the primed elements replace the 
unprimed elements of the A Matrix. 

Phase 3 Calculations: 

Similarly, only the i tn and j tn rows of the matrix used to form the 
eigenvectors are affected by a particular rotation. The , formulas used are: 



X > V 'ki = \i c + V kj 
2) V 'kJ= V kj C - V ki 



k = 1,2,3,-... ,N. 
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INPUT - OUTPUT AND DATA PREPARATION 



With the exception of the matrix size, N and the matrix coordinates I and J, 
all data is entered in standard 10- digit normalized floating point form. 

First Card (columns 1 - 13 / 

N NAAAAAAAAAAi 

N N is the matrix size in fixed point and is right justified. H must lie between 
2 and 51. 

AAAAAAAAAA is the minimum search argument, delta for the desired 
precision. For instance, ii it was desired that all off-diagonal elements be 
reduced to a value of less than .00000001, delta might be chosen as 1*210000000. 
See Procedural Options, page l6. 

Succeeding Cards (columns 1 - 15/ 

(T) 

IIJJAAAAAAAAAA k for each element on or above the principal 
diagonal. 

I I is the row designation and must be less than or equal to J J 
J J is the column identification and must not be greater than N 
AAAAAAAAAA is the matrix element in normalized floating point format. 
(-) A flag is punched over the low order A position for negative values. 

Note that flags are not required for field definition. A recommended 
sequence for punching is by row, i.e., a-^, a-^, a^ . . a^g, a.^ etc. 

Last Card( column l) 

i An additional record mark must follow the last record. 

If errors are made in the punching of the matrix elements, they need not 
be corrected before operating the program. The operator will be given the 
opportunity of entering corrected record(s) from the console during phase 1. 
(See "ANY CHANGES," page~9^ 

Record marks may be duplicated or gang-punched if desired but certain 
checking features will be sacrificed. 

Output Records 

Output cards and typewriter records are automatically prepared. (See 
sample problem. ) 



- 6 



MACHINE REQUIREMENTS 



Program "A" Basic 1620 equipped with 1622 card read-punch. 

Program "B" Basic card 1620 with direct division and indirect 
addressing features. Program B requires 6% 
less time than Program A for any given problem. 

Other features, such as extra memory and additional instructions, 
have no effect on program operation. 

A paper tape version of Program "A" is currently available from 
the 1620 program library. 
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PROGRAM OPERATION - GENERAL 



I/O Check Switch — - STOP 

OVERFLOW Check Switch STOP 

PARITY Check Switch --- STOP 



ON 



Sense Switch 1 Data on Cards 

Sense Switch 2 Punch rotation angles 

Sense Switch 3 Data will type out to verify 

Sense Switch 4 Error entered from typewriter 

When a typing error occurs: 



OFF 

Data entered via typewriter 
Do not punch rotation angles 
Data will not type out 
Normal 



1) Place sense switch 4 ON 

2) Depress RELEASE, START 

3) Place sense switch 4 OFF 

4) Re-enter record correctly from typewriter. 
Clear memory. (31 00003 00002) 

Prepare card punch and typewrite? forms. All program halts not 
accompanied by error typeouts or error indicators are normal. 
They are included to allow program or data preparation. 

All three phases are loaded by standard SPS methods: 

Depress Load Key, then START 

The transition between phases, however, is done automatically. 



PHASE 1 

1) Load program and data cards into 1622 read hopper: 

A. Phase 1 program 

B. Control Record card 

C. Data cards 

D. Trailer card (record mark in column 1) 

E. Phase 2 program 

F. Phase 3 program 

2) Depress LOAD 

3) When machine halts, depress START 

4) Follow instructions typed out on the console typewriter. 
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PHASE 1 CONT. 



5) Typeouts will occur with the following messages and their 
indications: 



LABEL TYPED 



NORMAL ERROR 



CONTROL RECORD ERROR 
N=XX 

DELTA=xxxxxxxxxx 
MATRIX TOO LARGE 
MATRIX TOO SMALL 
DATA ERR OR ADDITION 

record too long 

record too short 

I greater than J 

J greater than N 

record mark missing 
IJ DUPLICATED 

SINGULARITY POSSIBLE 
MATRIX LOADED 
ANY CHANGES 



COUNT WRONG 



CORRECTION POSSIBLE 

Re-enter correct control record 
via typewriter 

Re-enter correct control record 
Re-enter correct control record 
Enter correct record: HJJAAAAAAAAAAi 
by typewriter, depress RELEASE and 
then START 



If in error, correct by 'ANY CHANGES', 
below 

None, (AH less than . 000001) 

OK if last record is in 

Type YES4 or NO*. If YES, enter 

any additions or corrections as in 

'DATA ERR', above 

One or more elements are missing, 

enter as in 'DATA ERR', above 



6) The program will load into storage exactly N (N+l)/2 records. 
Should the data deck contain more than this number, the last 
record entered for any I and J will dominate, i. e. , will destroy 
the earlier record. 

7) The field address of any diagonal element is given by: 

Address= 07248 + 10 I for any (I, I). 
The field address of any other element is given by: 

Address= 07758 + J(J-3)*5 + 10 I for any A(I, J). (WJ) 

8) Program execution time is . 3(N^/2) seconds or slightly less 
than full read speed. 

It is important that no changes to 1620 storage addresses above 07000 
take place between phases 1 and 2. Phase 2 assumes the existence 
of the data matrix and certain other information left in storage by 
phase 1. 



c 



PHASE 1 CD NT. 



9) Phase 2 will be automatically loaded when Phase 1 terminates. 
P HASE 2 

1) Sense switch 2 on if the eigenvectors are desired. 

2) Depress START. 

3) Program execution time is about . 0052 minutes. If the vectors 
are desired, punch time (3.4 milliseconds per rotation) must be 
added. The number of rotations performed is generally bounded 

by 1. 3 N^ and 2 f4 , depending on the size and conditioning of the 
matrix. 

4) If sense switch 2 is on, i.e., the eigenvectors are desired, phase 
3 automatically loads into memory, if sense switch 2 is off, the 
program terminates and the card reader is unloaded by the 
program. 

PHASE 3 

1 ) If the eigenvectors are desired, depress Reader START then START 
at the completion of phase 2. Follow instructions typed out on the 
console, typewriter. Insure that all phase 2 output data cards (in- 
cluding the last one) follow phase 3. 

2) A maximum of 32 eigenvectors will be typed out on the first pass. 
If N is greater than 32, reload the data cards now in the reader 
output hopper and hit START for the remaining N-32 vectors. 

3) Average execution time = . 004N^ minutes. 

4) Since phase 3 is independent of the other two phases, it may be run 
at any later time at the user's convenience. To operate phase 3 
alone, perform the following operations: 

(1) Clear memory (31 00003 00002) 

(2) Load phase 3 program in Reader hopper. 

(3) Depress LOAD key. 

(4) When phase 3 loads, depress START. 
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PHASE 1 - MATRIX LOAD 



Trailer Card 



Matrix Data 
Control Record 



Matrix Loader 
Phase 1 




Messages 
Errors 
Data List 



N = Matrix Size 



00402 , Start 

PHASE 1 C1 Area ata MATRIX LOAD 

initialize 

■ Tape 



Read - N, D 

RNCD or 
RNTP 



J 6 ^, Bad Error 
Control — Message 
Re cord. 

OK Lagt Record 
, , . .. :. Read 2 
Read: 
"I, J, AIJ 
RNCD or RNTP 



Gut 



Invalid _ . 
Error „ K?f\ 



Message 



Validity 
Valid 

Store AIJ 

Return 
Count +1 — 



Ask 

No End Interrogate 

operator- End? 

End 

. Tstend 

Count Count = 

Short N(N+l)/2? 

E f r ° r Yes 
Message ^ 

Instruc- 
tions 



Halt 



Phase 2 Load 
and Go 
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02178 



Entry 



PHASE 2 



Initialise 

I 



EIGENVALUE COMPUTE 



~^jset Search 



Com pare 



AIJ<E 



/ Compa 
ALT to E 



J E 
AIT ADD 



+ = 



AIT 



2(AH - AJJ) 

r Anglet 

>. 4142^ 



Set + 45° Yes 
: Rotation 

: s. . TR°'. 

Form: Form: 
AI.AJ.AIJ Angle (©)t 
J AI, AJ, ALJ 

Store 



SINCOS 



Z2. 



*ype 
"New E 




Store 
AI. AJ, ALT 

■ Rotat e 



Rotate 
Routine 



Punch j 
I, J, SIN. cos: 

Oitep I Reset 2 
crement increment 

and test ' ^l° r ,et — 

Index / I Compare 1 



J Typo ut 
[Type ! 
[Solution | 
A(LJ) 



Call 3 
Phase 3 
Load and Go 
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PHASE 3 



02J78 ^ Entry 
• Set Pass 1 



EIGENVECTOR COMPUTE 



\ Clear 
Set I Matrix 

'j Readn 

Read N 



Read 



Read 
I, J. SIN, COS 



File 
End 

No 



Yes 



) - Comput 

Form Address: 
,V1I, VI J, VNI : 



Type V 

[Type VU 
V1-»VN 
•V1-V32 or 

V33-VN 

l 



Set 

Pass 2 



_ .No end 

test \ 
end 



© = 45 



, HRDWAY 

VKI=VKI- C + VKJ • S 
VKJ=VKJ- C - VKI- S 



,_ ^YKJADD + 24 

jVKI or 3=1JZ (VKI+VKJ) 
!VKJ or 1= + ^- (VKJ . VKI) 



v \ Store 
Store 
jVKL VKJ 



j End 

Y es . _ No ;K=K+1 

xes -< VKI=VNI - " " 
^ , pt<>P 

Addresses 
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PRECISION AND TIMING 



For test purposes, two types of matrices are considered. A well behaved 
matrix C, and the notoriously ill-conditioned Hilbert matrix, H defined as: 

C (I, J) = 2 D (I, J) - D (I, J + 1) - D (I, J - 1) 

where D is the usual Kronecker delta function, i. e. D (I, I) = 0; D (I, J) = 1 

for I t J and H (I, J) = 1 / (I + J - 1). 
The eigenvalues of C are given by ,\ . = 4 sin 2 ( (pi * I) / (2n + 2) ) 

i=l, 2 n. 

A moderately conditioned matrix, X, was also tried. 
Test results were: 

Precision 

Matrix Size C, H or X Time (No. of Correct Digits) 



5 


H 


65 


seconds 


4 


6 


X 


90 


seconds 


7 


7 


H 


2 


minutes 


1 


10 


C 


5-1/4 


minutes 


7 


10 


H 


8 


minutes 





20 


C 


29 


minutes 


4 


20 


C 


32 


minutes 


5 


20 


C 


38 


minutes 


6 



Since the floating point routines do not round after arithmetic operations, 
a general deterioration of precision is to be expected in the results of this 
program. 

Program "B" requires 6% less time than program "A". 
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The reader will notice minor discrepancies between the results of 
program A and B. These are due to the computational differences 
of the direct divide and programmed divide methods. The results 
from program B have proved, in general, to be more accurate. 



PROCEDURAL OPTIONS 



The procedure of redacing all off-diagonal elements to a machine zero 
(delta) raises a problem in the selection of this input variable. If delta 
is chosen either too large or too small, precision will be lost. The 
effects of incorrectly choosing delta are: 



1) Delta too large - a) fast processing speeds 

b) moderate to large error in Phase 2 

c) modsrate to large error in Phase 3 

d) may necessitate a re-ran to obtain the 
precision required. 



2) Delta too small - a) slow processing speeds, particularly 
in Phase 3 

b) small to moderate truncation errors 
in Phase 2 

c) moderate to large errors in Phase 3 

d) very large errors and floating P^ nt 
overflows if less than about 10" 

The author has found empirically that the relation 

DELTA = MAXIMUM ALT (I 4 J) * 10" 9 ) 



is very close to an optimum value in terms of precision and speed, with 
precision very heavily weighted. Deviations from this value by a factor 
of 10 affect the results to a small degree. Increasing delta by a factor 
of 10 results in a small time reduction, whereas decreasing delta by 
a factor of 10 results in a very small increase in precision. 
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THIS IS A COMPLETE RECORD OF CONSOLE OPERATIONS FOR THE 1620 EIGENVALUE PROGRAM. 
TEST MATRIX 3X3- SWITCHES 1. 2 AND 3 ON. BASIC CARD 1620. 



SsWjATA ON CARDS.OFF-DATA ENTRY V A TYP. 

552 ON-PUNCH ROTATION ANGLES. OFF-NO PUNCH. 

553 ON-DATA TYPED OUT TO VErI FY. OFF-NO TYPE. 

554 ON-ERROR ENTERED FROM TYP., OFF-NORMAL . 
CLEAR CARD PUNCH AND READY FORMS. 

PLEASE LOAD DATA AND HIT START 

N= 53 . 3ELTA » 4110000000 
A(01,01) - 5120000000 
A(01.02) = 5110000006 

A(01,03) - gooooooooo 

A(02,02) = 5120000000 
A(02,03) - 5110000005 

HAVE 3 YOU } ANY CHANGES^TYPE YES(RCJMK) OR NO(RCOMK) 
NO* . 
E- 511OOOOOO0 

MATRIX LOAJED-WHEN PHASE 2 LOADS, HIT START 

E « 5010OOOOO6 

E = 4910000006 

£ - 331000000$ 

£ = 5710OOOOO0 

E . 5610000005 

L ~ 5510000000 

E = 5410000008 

£ - 53IOOOOOOO 

E = 5210000005 

E - 51 10000006 



A(01) - 51341M151 
A(02) - 5058578544 
A{03) - 5119999993 

60011 ROTATIONS. «„ ^,„„<- 
NAXIMUH AIJ.O NOT - J). - 3981672426 

EIGENVALUES DONE, WHEN PHASE 3 LOADS, HIT START 

LOA- PHASE 2 OUTPUT HIT START 

V(01,01) = 5050000018 

V(02.01) = 507t>7 107,1? 

V(03,01) - 505OOOOO3O 

V(0l]02) - 50500O0OO5 

V(O2.02) « 5070710699 

V(03,02) - 5050000030 

V(0l'03) - 50707 107O3 

V(02,03) - $362605540 

V(03,03) - 50707 10697 
END 



THIS IS A COMPLETE RECORD OF CONSOLE OPERATIONS FOR THE 1620 EIGENVALUE PROGRAM. 
TEST MATRIX 3 X 3 - SWITCHES 1, 2 AND 3 ON. 1620 W/DIVIDE AND INDIRECT ADDRESSING. 

310000300002 

551 ON-DATA ON^ CARDS.OFF-DATA ENTRY VIA TYP. 

552 ON-PUNCH ROTATION ANGLES, OFF-NO PUNCH. 

553 ON-DATA TYPED OUT TO VERIFY, OFF-NO TYPE. 

554 ON-ERROR ENTERED FROM TYP., OFF-NORMAL. 
CLEAR CARD PUNCH AND READY FORMS. 

PLEASE LOAD DATA AND HIT START 

N=» 63 , DELTA - 4110000000 

A(01,01) - 5120000000 

A(01,02) = £110000005 

A(01,03) - 6000000000 

A 02,02) - £120000000 

A(02,03) - 5110000006 

A(03,03) - 5120000000 
HAVE YOU ANY CHANGES, TYPE YES(RCuMK) OR NO(RCDMK) 
NO* 

E- 5110000006 

MATRIX LOADED-WHEN PHASE 2 LOAiS, HIT START 

E - 5010000005 

E > 4910000006 

E - 5810000006 

E « 5710000006 

E - 5610000006 

E = 5510000006 

E - 5410000005 

E - 5310000006 

E = 5210000005 

E « 5110000005 

A(01) = 5134142153 
A(02) = 5058578477 
A(03) = 5119999993 

60011 ROTATIONS. 

MAXIMUM AIJ,( I NOT - J), = 5011332335 
EIGENVALUES DONE, WHEN PHASE 3 LOADS. HIT START 
LOAD PHASE 2 OUTPUT HIT START 

V(0t,01) = 5050000020 

V(02,0I) = 507O7IO715 

V(03,01) - 5050000035 

V(01,02) = 5049999999 

V(02,02) = 50707IO7O8 

V(03,02) = 5050000043 

V(01,03) - 50707 10722 

V(02,03) - 4279476406 

V(03,03) - 5070710697 
END .G 



PHASE 1 
ALL 1620 CARD SYSTEMS 
SPS LISTING 











* 


THIS 


IS PHASE 1 - MATRIX LOADER 


00402 










DCRG 


Z 

4022 


00402 


16 


00420 


-7258 




TFM 


START&6.07258Z 




26 


-7258 


03115 


START 


TF 


7258. ZERO. 2Z 


Go426 


11 


00419 


000-1 




AM 


*-7,l,10Z 
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OGOlCC 




CK 
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00450 
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BM2 
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MESS1Z. 
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MESS2Z 
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34 
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39 
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00100 
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MESS3Z 
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34 
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39 


03489 


00100 




WATY 


MESS4Z 
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34 


OO000 


00102 




RCTY 


Z 


00582 


39 


03575 


00100 




WATY 


MESS5Z 


00594 


34 
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001C2 




RCTY 


Z 


00606 


39 


02277 


00100 




WATY 


DATAZ 


00618 


34 
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00102 




RCTY 


Z 


00630 


48 


00641 


00641 
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TEMP » TEMPZ 


C0642 


46 


00696 


00100 
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TAPE.»» ENTRY VIA TYPZ 
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34 
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l/C 102. 




RCTY 
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O0666 


36 


03116 


00100 




RNTY 


I-1Z 


00678 


46 
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00400 
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*-24Z 


00690 


49 


00710 
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8 


TAPE612Z 


00698 










DORG 


*-3Z 


00698 
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.'3116 
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TAPE 


RNCD 


I - 1 » » » Kt AD N AND DLLTAZ 


00710 


4b 
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32 
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1-1... SET N FLACiZ 


00734 


33 


03117 
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03117 




TF 
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TF 
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KCTY 
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39 
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38 


-7246 
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C06I8 


39 


02639 


uolOO 




WATY 


DELTAKZ 


Oob30 


3b 


0311E 


00100 




WNTY 


J-1Z 


DvB42 


32 


03116 


--GGG 
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- 6 04 


26 


o7?37 


o3127 
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.7227 


JCONO 




CM 


N.5o»lOZ 


00890 


47 


099 


1100 




BNH 


LESSiOZ 


00902 


34 


OOOow 


00102 




RCTY 


Z 


00914 


39 


02341 


00100 




WAT Y 


BIGZ 


00926 


34 


OOOOC 


00102 


NERR 


RCTY 


Z 


00938 


38 


03116 


Ool 00 




WNTY 


I-1Z 


00950 


49 


00654 


ooooo 
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TMPSTR624Z 


uJ958 










DORG 


*-3Z 


0o958 


34 
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00102 


CNTRLR 


RCTY 


Z 


00970 


39 


02541 


00100 




WATY 


ERRORCZ 


00982 


49 


00926 


OOOOO 




6 


NERRZ 


00990 










DORG 


*-3Z 


00990 


14 


07227 


000-3 


LESS50 


CM 


N.3.1CZ 


010^2 


46 


01046 


01300 




bNL 


SIZEOKZ 


01ul4 


34 


oOOOu 


uOl 02 




RCTY 


z 


01026 


39 


02441 


00100 




WATY 


SMALLZ 


01U38 


49 


00926 


OOOOO 




B 


NERRZ 


01046 










DORG 


*-3Z 


01046 


11 


o7247 


juO-1 


SIZEOK 


AM 


E. 1.10. PLUS 1Z 


01058 


23 


07247 


07227 
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E »N. .N%N&ln/2Z 


01u70 


26 


07247 


00099 




TF 


E.ACZ 


01082 


13 


07247 
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MM 
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01094 


26 


01733 


0O098 




TF 


TSTEND&ll.AC-l.t SET LND TESTZ 


01106 


26 


07247 


03115 




TF 


E.ZLROZ 


01118 


15 


03130 


OOOOO 


LOOP 


TDM 


INPUT&l.O.. SECOND NiAR|n#OZ 


01130 


46 


01186 


00100 


READ 


BC1 


READ2Z 


01142 
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Z 
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36 


03116 


00100 




RNTY 


INPUT-13Z 


01166 


46 
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BC4 


«-24Z 
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49 


01198 
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B 
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DORG 


*-3Z 


01186 


36 


U3116 


0^500 


READ2 


RNCD 


INPUT-13. ..KEADZ 


01198 


45 


01254 


03116 




BNR 


GUT.INPUT-13.. FILE TEi>TZ 


01210 


15 


03130 


OuOOO 




TDM 


INPUT&1Z 


01221 
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DC 


1»®.*Z 


01222 


15 


03116 


OOOOO 




TDM 


INPUT-13.0Z 


01234 


15 


01639 
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TDM 


Sv» 161 tit. SWITCH 1 tiOV OI.Z 


1 246 


49 


1650 


00 00 




U < 


ASK 1 1 . I NUUIRtZ 


01254 










DORG 


«-3Z 


01254 


45 


02050 


03130 


GUT 


BNR 


INL ARM. INPUT &1 » .CHECK recordz 


01266 


32 


03120 


OOOOO 


R CROOK 


SF 


INPUTS. . .FLAG AIJZ 


01278 


32 


03118 


OOOOO 




SF 


INPUT-11...FCAG JZ 


01290 


32 


03116 


OOOOO 




SF 


INPUT-13...FLAG IZ 


01302 


24 


07227 


03119 




C 


N » jZ 


01314 


47 


u2^50 


01300 
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y i i i g 






Sl 




01350 


46 


Q183B 


01200 




BE 


ST0R1 1 » • » DOES I«JZ 


01362 


24 


03128 


07246 




c 


INPUT-1»E-1»» A'U VS EZ 


01374 


47 


0139B 


01300 




BL 


ST0RIJ2 


01366 


26 


07247 


03129 




TF 


E. INPUT.. AIJ INTO t IF HiGHtRZ 


01398 


26 


00641 


03119 


STORIJ 


TF 


TEMP.JZ 


01410 


12 


00641 


000-3 




SM 


TEMP.3.10Z 


01422 


23 


00641 


03119 




M ■ 


TEMP.J..J%J-3n TO 4 DIGITSZ 


01434 


26 


00641 


00099 




TF 


TEMP.AC.. AttAIJaZ 


01446 


13 


00641 


.000-5 




MM 


TEMP.5.10. 5*TEMP-6 DIGITSZ 


01458 


11 


00099 


-7758 


PATCH1 


AM 


AC.07758Z 


01470 


21 


00098 


03117 




A 


AC-1.1..& 10* I Z 


01482 


32 


O0095 


OOOCO 




SF 
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01494 


26 


01512 
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TF 
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01506 


24 


-0000 


03115 


STORE 
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0.ZER0.2. OCCUPIED TESTZ 


01518 


46 


01578 


01200 




BE 


DIJOBUZ 


01530 


34 


UOOOO 


00102 




RCTY 


Z 


01542 


39 


02721 


00100 




WATY 


DUP . « . TYPE DUP. tRRORZ 


01554 


38 


03116 


ooioo 




WNTY 


INPUT-13Z 


01566 


12 


J3104 


000-1 




SM 


COUNT. 1.10. CUUNT-1Z 


01578 


26 


01596 


00099 


DIJOBU 


TF 


•&18.ACZ 


01590 
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03129 




TF 
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01602 


47 


01626 


00300 




BNC3 


RtTURNZ 


01614 


17 


02190 


000-0 




BTM 


OUTDUP.0.10Z 


01626 


11 


J3104 


000-1 


RETURN 
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01638 


49 


01118 


OOOOO 


SW1 


B 
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01650 


34 
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00102 
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RCTY 


Z 
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39 


u2993 


00100 
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00102 




RCTY 


Z 
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37 


03093 


00100 
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BC4 
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03104 
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CM 
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01200 




BNE 


CTWRNGZ 


01746 


34 


OOOOO 


00102 


EXIT 


RCTY 
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39 
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00100 




WATY 


EEOUALZ 
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28 


07238 


00100 




WNTY 


E-9Z 


C1782 


34 


OOOOO 






RCTY 


Z 


01794 


34 


OOOOO 


00102 




RCTY 


z 


018U6 


39 


03643 


OOlOO 




WATY 
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01818 


36 


OOOOO 


00500 




RNCD 
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49 
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DORG 


*-3Z 
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14 
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STORI I 


CM 
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46 


01898 
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01662 


34 


00^00 


v,.lo,>. . 




kCTY 


I 


>.18 74 


39 


0267V 


ColOO 




WATY 


I ILAK 7 


01886 


36 


03116 


uv^lOC 




WNTY 


INPUT-13Z 


wl898 


16 


01928 


-7243 


I I OK 


TF.<1 


*&30»D!AG-lO.» AHiAllnZ 


01910 
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01927 


03117 




A 
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01922 


24 
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13115 




c 
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01934 


46 


- 1 994 


1200 




hi 


tlL5<AZ 


1 946 


34 


CUvOO 


0i>102 




ROY 


I 


01958 


39 


02721 


0C100 




WAT Y 


DjPZ 


C1970 


38 


03116 


0O10C 




WNTY 


INPUT-13... tfAD RECCRDZ 


01982 


12 


03104 


000-1 




SM 


COUNT .1.10Z 


G1994 


26 


o20l2 


01928 


ECtSKA 


TF 


*!»18 » I ICK6.1OZ 


020^6 


26 


— oooo 


03129 




TF 


• I NPUT .2 » sroiu A1Z 


02018 


47 


02042 


0O300 




UNO 


*624Z 


02030 


U 


02 19C 


ooo-o 




BTM 


OUTDUP »0» 10Z 


02042 


49 


01626 


ooooo 






RETURNZ 


C2050 










DORG 


*-3Z 


02050 


34 


o C 


00102 


INLAKM 


kCTY 


z 
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03139 


OuOOO 




TOM 
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02073 
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DC 


l.@.*Z 
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36 


C3116 


00100 




WNTY 


INPUT-13Z 


020S6 


39 


02793 


•ooioo 




WATY 


RCWRNG... BAD RECOROZ 


02098 


34 


00000 


00102 




KCTY 


z 


02110 


36 


03116 


00100 




RNTY 


INPUT-13... CORRECT RCCORDZ 


02122 


46 


02096 


0O400 




BC4 


«-24Z 


02134 


49 


01196 


00000 




ti 


KEAD2612Z 


02142 










OORG 


*-3Z 


02142 


34 


00000 


00102 


CTWRNG 


fiCTY 


Z 


0215* 


39 


02893 


00100 




WATY 


NUM8ERZ 


02166 


38 


03100 


00100 




WNTY 


COUNT -4Z 


02178 


49 


01650 


ocooo 




a 


ASK... ENTER MISSI/.G KtCJKDZ 


02190 


25 


03203 


03116 


OUTDUP 


TD 


0UTTYP&6.I-1Z 


02202 


25 


03205 


03117 




TO 


0UTTYP&8.IZ 


02214 


25 


03209 


03118 




TD 


0UTTYP&12.J-1Z 


0222* 


25 


03211 


03119 




TD 


0UTTYP614.JZ 


02238 


34 


uOOOO 


00102 




RCTY 


Z 


02250 


39 


03197 


00100 




WATY 


OUTTYPZ 


02262 


36 


03120 


00100 




WNTY 


INPUT-9Z 


02274 


42 


00000 


00000 




BB 


2 



02276 




# 


DOKG 


#-M 

PHASE 1 CONSTANTSZ 


07758 


1223 00010 


ELEMNT 


DSB 


1225.10.77582 


07238 


SO 00010 


D'JAG 


DSB 


30.10. 07256Z 


02277 


32 


DATA 


DAC 


J2 .PLEASE LOAD DATA AND HIT START 91 


02341 


50 


BIG 


DAC 


50. MATRIX TOO LARGE .RE-ENTER CONTROL. RECORD VIA TYP.tZ 


02441 


50 


SMALL 


DAC 


50. MATRIX TOO SMAL L , RE-EN TER CONTROL RECORD VIA TYP.tZ 


02541 


49 


ERRORC 


DAC 


49. CONTROL RECORD ERROR .RE-ENTER VIA TYPEWRITER NOW«Z 


02639 


12 


PELTAK 


DAC 


12. . DELTA # ®2 


02663 


4 


EEQUAL 


DAC 


4.E* SZ 


02671 


4 


NEOUAL 


DAC 


4.N* 02 


02679 


21 


I 1LARM 


DAC 


21. SINGULARITY POSSIBLEffZ 


02721 


36 


DUP 


DAC 


36. IJ DUPLICATED. RECORD USED WILL BE 9l 


02793 


50 


RCWRNG 


DAC 


50 .DATA ERR OR ADDI T ION . 1 NSERT VIA TYPEWRITER NOW ®Z 


02893 


50 


NUMBER 


DAC 


50.COUNT WRONG. YCUR ANSWER MUST BE YES TO QUERY ®Z 


C2993 


50 


INGUIR 


DAC 


50. HAVE YOU ANY CHANGES. TYPE YtSSRCDMKo OR N0KRCDMKO9Z 


03093 


4 


ADD 


DAC 


4.N0X8Z 


031*>4 


5 


COUNT 


DS 


5Z v.„. 


03105 


1 


RM 


DC 


l.ez 


00641 


10 


TEMP 


DS 


10.TMPSTR611Z 


03115 


10 


ZERO 


DC 


10. -OZ 


C3117 


2 


1 


DS 


2Z 


03119 


2 


J 


DS 


2Z 


03129 


10 


AIJ 


DS 


10Z 


07227 


2 


N 


DS 


2.7227Z 


07237 


lu 


DELTA 


DS 


10.7237Z 


07247 


10 


E 


DS 


10.7247Z 


07248 


1 


XYZ 


DC 


1.S.7248Z 


03129 




INPUT 


DS 


»AIJZ 


03195 


66 


CARDIN 


DS 


66Z 


03143 


1 


INSURE 


DC 


1.9.INPUT&14Z 


00099 




AC 


DS 


»99Z 


03197 


13 


OUTTYP 


DAC 


13. AiOO.OOa * 9Z 


03223 


45 


MESS1 


DAC 


45. SSI ON-DATA ON CARDS , OFF-DATA ENTRY VIA TYP.tZ 


03313 


43 


MESS2 


DAC 


43.SS2 ON-PUNCH ROTATION ANGLES. OFF-NO PUNCH. «Z 


03399 


45 


MESS3 


DAC 


45.SS3 ON-DATA TYPED OUT TO VER I FY.OFF-NO TYPE.tZ 


03489 


43 


MESS4 


DAC 


43.SS4 ON-ERROR ENTERED FROM T YP. ,OFF-NORMAL.«Z 


03i>7b 


34 


MESS5 


DAC 


34. CLEAR CARD PUNCH AND READY FORMS. 91 


03643 


44 


INSTRC 


DAC 
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DEND 
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02178 


15 


00401 


00-01 


* 

ENTRY 


TDM 


Z 

401,1.92 


02190 


16 


O6202 


-0000 




TFM 


IKUDA-l.OZ 


O22o2 


16 


05983 


000-1 


START 


TFM 


1.1.10. 1*12 


02214 


16 


05985 


000-2 




TFM 


J. 2. 10. J«2Z 


02226 


16 


02256 


-7751 




TFM 


CMPARE&6.7751.. SET SEARCHZ 


02238 


15 


04975 


00001 


I1J1 


TDM 


Srtlfrltlt* 1 OFFZ . . 


02250 


24 


-7751 


07240 


CMP ARE 


C 


775l.E-7.2.»LESS THAN EZ 


02262 


47 


04914 


O1300 




BL 


STEP I... *«««.N0 HITZ 


02274 


15 


04975 


00009 


HIT 


TDM 


SW161.9,. 1 ONZ 


02286 


16 


02321 


-724e 




TFM 


lADDfrl 1.7248,. SI'T I ADDZ 


02298 


21 


02320 


05983 




A 


IADD610.I.. All ADDZ 


02310 


26 


06167 


00000 


I ADD 


TF 


AI 1.0*2 


02322 


16 


02357 


-7248 




TFM 


JADD&11.07246Z 


02334 


21 


02356 


05965 




A 


JADD&10.J,, AfcAJJoZ 


02 346 


26 


06177 


00000 


JADD 


TF 


AJJ.OZ 


02368 


26 


02393 


02256 




TF 


♦ 635.CMPAKL6.6Z 


02370 


11 


02393 


000-7 




AM 


•&23.7.10. AIJ ADDZ 


02382 


26 


06187 


ocooo 


AIJADD 


TF 


AUtOZ 


02394 


26 


06197 


06167 




TF 


AIMIAJ.A1 1Z 


02406 


16 


00469 


-2441 




FS 


AIMIAJ.AJJ.. Al-AJZ 


C2416 


16 


00445 


-61*7 








02430 


49 


00402 


-6177 








02442 


47 


02486 


01200 




BNZ 


SMP2Z 


02454 


26 


06233 


06097 




TF 


NEWAIJ.ZEKOZ 


02466 


25 


06250 


06187 




TD 


TEMPtAIJZ 


02478 


49 


02654 


00000 




6 


FORMA 1Z 


02486 










DORG 


*-3Z 


02486 


26 


00099 


06197 




TF 


ACAIMIAJZ 


02498 


16 


00469 


-2533 




FA 


AC, AC. 2*Al-AJnZ 


02510 


16 


00445 


-0099 








02522 


49 


00422 


-0099 








02534 


16 


00469 


-2569 




FD 


AIJ.ACZ 


02546 


26 


01260 


06187 








02558 


49 


01422 


-OOSSi 








02570 


24 


00096 


06240 


ANGLET 


C 


96.TAN225,. ALPHA TO TAN 22. 5Z 


02582 


47 


03014 


01300 




BL 


SI NCOS... JUMP IF ALJ-HA SMALLZ 


02594 


25 


06250 


00099 




TD 


TEMP. AC. ALPHA SIGNZ 


02606 


16 


U0469 


-2641 




FN' 


AIMI AJ.HALFZ 


02618 


26 


01260 


06197 








u263o 


49 


wl262 


-tOo 7 








02642 


26 


06233 


0O099 




TF 


NtwAU.AC. AIJZ 


02654 


26 


06213 


06177 


FORMA 1 


TF 


htWAI 1 .AJJZ 



02666 


16 


0046? 


-2 701 






NcwAl 1 * A 1 1 * » Aitr/^JZ 


02678 


16 


0044a 


-6213 








02690 


49 


00422 


-6167 








02702 


16 


00469 


-2737 




FM " 


NEWAI I ,HALFZ 


02 714 


26 


01260 


06213 








02726 


49 


01262 


-6087 








02738 


2b 


o6213 


0u099 




TF 


istrfAI I »ACt • l/2vuAI(,AJaZ 


02750 


2b 


06223 


06213 




TF 


NEwAJJ, NEWAI 12 


02762 


16 


00469 


-2797 




FS 


NEWA1I.AIJZ 


02774 


16 


00445 


-6213 








02786 


49 


00402 


-61tJ7 








02798 


16 


O0469 


-2833 




FA 


NtWAJJ»AI J2 


C2610 


16 


v^0445 


-6223. 








02822 


49 


00422 


-6187 








02834 


15 


04567 


00009 




TOM 


SW261.9,, SW2 ONZ 


02646 


15 


05987 


00000 




TDM 


J62Z 


02857 




1 






DC 


1»®,*Z 


02858 


44 


02902 


06250 




BNF 


PLUS»TEMP», IS ALPHA-Z 


C2870 


15 


05986 


OoOOG 


MINUS 


TDM 


J61 ib.HZ 


02882 


15 


05247 


OC001 




TDM 


SW361tl»» SW3 OFFZ 


02894 


49 


04046 


OOOoO 




b 


ST.OREZ 


02902 










OORG 


#-32 


029^2 


13 


u5986 


ooOOO 


PLUS 


TDM 


J&l ,8Z 


02914 


15 


05247 


00009 




TDM 


SW361.9,, SW3 0<\Z 


02926 


26 


06250 


0621 3 




TF 


TEMP. NEWAI IZ 


02938 


26 


06213 


06223 




TF 


NEWAI 1 »NEWAJJZ 


02950 


26 


06223 


06250 




TF 


NEWAJJ.TEMPtt SWITCH AI-AJZ 


02962 


44 


02994 


06233 




BNK 


*&32»NEWAIJZ 


02974 


33 


06233 


00000 




CF 


NEWA1J,,, INVERT AIJ SIGNZ 


02906 


49 


04046 


00000 




b 


STOREZ 


02994 










DORG 


*-3Z 


02994 


32 


06233 


00000 




SF 


NEWAI JZ 


03U06 


49 


04046 


oo oo a 




6 


STOREZ 


03014 










DORG 


*-32 


03014 


26 


0631 1 


00099 


SINCQS 


TF 


SCtACtt GAMMAZ 


03026 


16 


00469 


-3061 




FA 


AC»AC»t 2 GAMMAZ 


03038 


16 


0C445 


-0099 








03050 


49 


00422 


-0099 








03062 


26 


06301 


00099 




TF 


S2.ACZ 


03074 


16 


00469 


-3109 




FM 


SC»SCZ 


03086 


26 


U126J 


06311 








03098 


49 


01262 


-6311 








03110 


26 


06005 


00099 




TF 


COS, AC GAMKA*#2Z 


03122 


16 


00469 


-3157 . 




FA 


AC, ONE.. 1&GAMMA**2Z 


03,1 3* 


16 


00445 


-00V9 









03146 


49 


00422 


-6077- • 








03158 


26 


06250 


00099 




TF 


TEMP.ACZ ■ • ■ 


03170 


16 


00469 


-3205 




FD 


S2»TEMPZ 


03182 


26 


01260 


06301 








03194 


49 


01422 


-6250 








03 206 


26 


v5995 


00099 




TF 


sin, ac, si:;ez 


03218 


26 


o6260 


06C77 




TF 


TEMP2»ONE2 


03230 


16 


0C469 


-3265 




FS 


TEMP2»C0S»» 1-GAMMA##22 


C3242 


16 


U0445 


-6260 






03254 


49 


00402 


-6005 








03266 


16 


o0469 


-3301 




FD 


TEN,P2,TEMP2 


03278 


26 


126u 


06260 








03290 


49 


01422 


-6250 








033&2 


26 


06005 


00099 




TF 


-CUS.ACZ 


03314 


16 


00469 


-3349 




FM 


CUS»COSZ 


03326 


26 


';1260 


06005 








0333B 


4 9 


1262 


-6005 








03350 


26 


i,6321 


w009'v 




TF 


C2.AO. C**2Z 


03362 


26 


u6301 


06077 




TF 


S2,0NE.» S26C2*1Z 


03374 


16 


00469 


-3409 




FS 


S2,C2»» #MN**2Z 


03386 


16 


00445 


-6301 








03398 


49 


040 2 


-63 21 








C341o 


16 


00469 


-3445 




FN' 


S1N.C0SZ 


C3422 


26 


J1260 


05993 








C3434 


49 


GU62 


-6005 








03446 


26 


06311 


00099 




TF 


SC.ACZ 


03458 


16 


00469 


-3493 


AAA 


FM 


SC»AIMIAJ#. SC»AII-AJjnZ 


03470 


26 


01260 


G6311 








03462 


4 9 


ol262 


-61W 








03494 


26 


.,6250 


00099 




TF 


TIMP.ACZ 


C35-6 


26 


k-Oo99 


06321 




TF 


ACC2Z 


03518 


16 


00469 


-3553 




FS 


AC.S2Z 


03530 


16 


00445 


-0099 








03542 


49 


OO402 


-6301 








03554 


16 


04 69 


-35d9 




FM 


ACAIJZ 


03566 


26 


ol26o 


0099 








35 70 


4 V 


01262 


-61b 7 








035:: 




C-'i69 


-3625 




FS 


AC , TtMPZ 


l>3602 


16 




- . C '■ 5 








03614 


49 


00402 


-625C 








03626 


2o 


-6233 


00C99 




T L 


NEWAI J.ACZ 


03633 


lo 


-0469 


-3673 




FN 


SC.AI •: 


03650 


26 


126* 


0631 1 








C3662 


49 


1262 


-6187 








03674 


16 


o0460 


-37C9 




FA 


AC , ACZ 



368 6 


16 


..-443 










03696 


4* 


-0422 


-0099 








0371 J 


26 


-626- 


--099 




TF 


TE.MP.?. ''*C » » ,<A1J»SC7. 


03722 


16 


00469 


-3757 




FV 


C2 »AI 12 


03734 


20 


Ol26o 


-0321 








03746 


4'/ 


- 1 262 


-6167 








03758 


26 


-6213 


0-C99 




TF 


r. L v\ A 1 1 .AC7 


03770 


16 


-0469 


-3805 




FM 


S2.AJJZ 


03782 


26 


-1260 


06301 








03794 


49 


01262 


-6177 








038-6 


16 


-0469 


-3841 




FA 


NilKAIl.ACZ - 


03618 


16 


i,044!> 


-6213 








03630 


4V 


J0422 


-0099 








03842 


16 


00469 


-3877 




FA 


NEWA1 1 »TEMf>2Z 


03854 


16 


00445 


-6213 








03866 


49 


00422 


-6260 








03878 


16 


00469 


-3913 




Ftf 


SttAllZ 


03890 


26 


-1260 


06301 








039-2 


49 


01262 


-6167 








03914 


26 


06223 


00099 




TF 


NEWAJJ.ACZ 


03926 


16 


00469 


-3961 




FM 


C2.AJJZ 


C3938 


26 


01260 


06321 








03960 


49 


126 2 


-6177 








-3962 


16 


-0469 


-3997 




FA 


NEWAJJ.ACZ 


03974 


16 


00445 


-6223 








03986 


49 


00422 


-0099 








03998 


16 


C0469 


-4033 




FS 


NEWAJJ.TEMP2Z 


04010 


16 


00445 


-6223 








04-22 


49 


-0402 


-6260 








040 34 


15 


J4567 


C-001 




TDK 


Sa2&1»1i. SvU OFFZ 


04046 


26 


04064 


C2357 


STOKE 


TF 


*frl8»JADD611Z 


C4U58 


26 


00000 


06223 




TF 


OOOOO.NEWAJJ ... STORE 


04070 


26 


04088 


02393 




TF 


•&18.AI JADD611Z 


04082 


26 


00000 


06233 




TF 


00000.NEWA1 J»» STOKE 


04094 


26 


04112 


02321 




TF 


♦618. 1 ADD- 1 1Z 


04106 


26 


0000- 


06213 




TF 


OOOOO.NEwAIl .» STCRL' 


04118 


26 


02282 


07227 


ROTATE 


TF 


K » N t • KU til 


04130 


U 


06202 


-0001 




AM 


KUDA-l.lt. STEP COUNTZ 


04142 


24 


02282 


05983 




C 


K.1Z 


04154 


47 


04210 


01300 




BL 


SWCHK... K LESS THAN 11 


04166 


46 


04866 


01200 




BE 


SKIP... k*IZ 


04178 


26 


02284 


02282 




TF 


IU.K.. K GREATER THAU 


04190 


26 


02246 


05983 




TF 


11. 11 


04202 


49 


04234 


ocooo . 




8 


AAIKZ 


04210 










DORG 


»-3Z 



04210 


26 


02284 


059.83 


SWCHK 


TF 


IU.I.. 


K. LESS THAN 11 


04222 


26 


02246 


02282 




TF 


11. HZ 




04234 


26 


06250 


02284 


AAIK 


TF 


TEMP.UZ 




04246 


12 


06250 


000-3 




SM 


TEMP.3.10Z 




04258 


23 


06250 


02284 




M 


TEMP.K1 » . 


K4K-30Z 


04270 


26 


06250 


00099 




TF 


TEMP.ACZ 




C4282 


13 


06250 


000-5 




MM 


TEMP. 5. 10. 


6 DIGITSZ 


04294 


11 


00099 


-7758 




AM 


AC.07758Z 




04306 


21 


00098 


02246 




A 


AC-1.I1.. 


AVAIKaZ 


04316 


32 


00095 


00000 




SF 


AC-4Z 




04330 


26 


04353 


00099 




TF 


AIXADD611. 


ACZ 


04342 


26 


06213 


00000 


AKADD 


TF 


AK.OZ 




C4354 


24 


02282 


05985 




C 


K*JZ 




04366 


47 


04422 


01300 




BL 


SWCHJKZ 




04378 


46 


04866 


01200 




BE 


SK1PZ 




04390 


26 


02248 


05985 




TF 


Jl.J.. 


K GREATER THAN 


04402 


26 


02284 


02282 




TF 


Kl.KZ 




04414 


49 


-4446 


00000 




B 


AAJK.Z 




C4422 










DORG 


*-3Z 




04422 


26 


02248 


02282 


SWCHJK 


TF 


Jl.K*. 


K LESS THAN JZ 


04434 


26 


02284 


05985 




TF 


Kl.JZ 




04446 


26 


C6250 


02284 


AAJtC 


TF 


TEMP.K1 . . 


AJK AOOZ 


C4458 


12 


06250 


000-3 




SM 


TEMP.3.10Z 




04470 


23 


06250 


02264 




M 


TEMP.MZ 




04482 


26 


06250 


0O099 




TF 


TEMP.ACZ 




-04494 


13 


06250 


000-5 




MM 


TEMP. 5. 10. 


6 DIGITSZ 


04506 


11 


00099 


-7758 




AM 


AC.07758Z 




04518 


21 


00096 


02248 




A 


AC-1.JIZ 




04530 


32 


00095 


CjOOO 




SF 


AC-4Z 




04542 


26 


04565 


00099 




TF 


AJKADO&ll* 


ACZ 


C4554 


26 


06223 


0-000 


A JKADD 


TF 


AJK.OZ 




04566 


49 


05078 


0-000 


SW2 


B 


DEG45Z 




04578 


16 


00469 


-4613 




FM 


COS.AKZ 




04590 


26 


01260 


06005 










04602 


49 


01262 


-6213 










04614 


26 


06260 


00099 




TF 


TEKP2.ACZ 




04626 


16 


00469 


-4661 




FM 


SIN.AJKZ 




04638 


26 


01260 


05995 










04650 


49 


01262 


-6223 










04662 


16 


00469 


-4697 




FA 


TEMP2.ACZ 




04674 


16 


O0445 


-6260 










04686 


49 


00422 


-0099 










04698 


16 


00469 


-4733 




FM 


S1N.AKZ 




04710 


26 


01260 


05995 










04722 


49 


01262 


-6213 











„4734 


26 


G62Do 


J0099 




TF 


TEMP * AC * » MK*SIKZ 


04746 


16 


00469 


-4781 




FM 


COS.AJKZ 


04758 


26 


01260 


06005 






- 


C4770 


49 


01262 


-6223 








04782 


16 


00469 


-4817 




.FS 


AC .TEMPZ 


04794 


16 


00445 


-0099 








04806 


49 


00402 


-6250 








04818 


26 


04836 


04565 


KTSTOR 


TF 


•tVltJ.AJKADOtllZ 


04830 


26 


00000 


0u099 




TF 


0»AC*. AJK STOREDZ 


04842 


26 


04860 


04353 




TF 


•618.AIKA0D611Z 


04854 


26 


00000 


06260 




TF 


0.TEMP2.. A1K STGRcDZ 


04866 


12 


02282 


000-1 


SKIP 


SM 


K.1.1G. K-1Z 


04878 


47 


04142 


012OO 




BNZ 


ROTATE624 * » • :<L1\jkt,Z 


04890 


47 


04914 


0O200 


WANTU 


BNC2 


STEPI»t» 6KIP PUNChZ 


04902 


38 


05982 


00400 




WNCO 


I-l»»» PUNCH I • J»SIN*COSZ 


04914 


11 


05983 


000-1 


STEPI 


AM 


I. 1.10. 1&1Z 


04926 


24 


05983 


05985 




C 


I *JZ 


04938 


47 


05370 


01200 




BNt 


RtSET2Z 


04950 


24 


05985 


07227 




C 


J»N». J VS ivjZ 


04962 


47 


05346 


01300 




BL 


RESET2-24Z 


04974 


49 


02202 


00000 


SW1 


B 


START* » t SOMETIMES NOPZ 


04986 


24 


07246 


07236 




C 


E-l tOELTA-1 • » t VS DELTAZ 


04998 


47 


05390 


01100 




6NH 


TYPOUTZ 


05010 


12 


07239 


000-1 




SM 


E-8.1»10f E#E/10Z 


05022 


34 


00000 


00102 




RCTY 


Z 


05034 


39 


06419 


00100 




WATY 


EEQUALZ 


05046 


38 


07238 


00100 




WNTY 


E-9Z 


05058 


46 


05390 


01200 




B2 


TYPOUTZ 


05o7C 


49 


02202 


OOOOO 




a 


STARTZ 


05078 










DOIiG 


#-32 


05078 


16 


v-0469 


-!>113 


DEG45 


FM 


SOiRT^.AIKZ 


05090 


26 


0126o 


06489 








05102 


49 


01262 


-o21 3 








05114 


26 


06250 


00099 




TF 


TEMP.ACZ 


05126 


16 


00469 


-5161 




FV 


SilRTZ.AJKZ 


05138 


26 


01260 


06489 








05150 


4V 


01262 


-6223 








03162 


26 


06260 


06250 




TF 


TEMP2.TEMPZ 


05174 


16 


00469 


-5209 




FA 


TEMP2.AC* » AIKZ 


05186 


16 


00445 


-6260 








05198 


49 


o0422 


-0099 








05210 


16 


00469 


-5245 




FS 


AC » TEMP . » AJK.Z 


05222 


16 


00445 


-0099 








05234 


49 


00402 


-6250 








05246 


49 


04818 


OoOuO 


SW3 ■ 


a 


RTSTOK... NOPZ 



05258 


26 


O6250 


06260 




TF 


TEMP»TEKP2*»Stol TCH AIK-AJICZ 


05270 


26 


06260 


00099 




TF 


TEMP2»ACZ 


05282 


26 


00099 


06250 




TF 


AC.TEMPZ 


05294 


44 


05326 


06260 




BNF 


SETF»TEMP2Z 


05306 


33 


06260 


OOOOO 




CF 


TEMP2Z 


05318 


49 


04818 


OOOOO 




3 


RTSTORZ 


05326 










DORG 


*-3Z 


05326 


32 


06260 


OOOOO 


SETF 


SF 


TEMP2... INVERT AIK S1GNZ 


05338 


49 


04818 


OOOOO 




B 


RTSTORZ 


05 346 










DORG 


*-3Z 


05346 


16 


05983 


000-1 




TFM 


I * 1 • 1 • I #12 


05358 


11 


05985 


000-1 




AM 


J. 1.10. J61Z 


05370 


11 


o2255 


0C0-] 


RESET2 


AM 


C'MPAKti>5.1.10. AIJUZ 


05382 


49 


02250 


OOOOO 




B 


CMPAHE » . . LOOP UACKZ 


0539C 










DORG 


*-3Z 


05390 


34 


OOOOO 


001C2 


TYPOUT 


RCTY 


Z 


05402 


34 


OOOOO 


Ool„2 




KCTY 


I 


05414 


16 


05983 


OCO-1 




TFM 


1*1*10* 1*12 


05426 


16 


05497 


-7258 




TFrt 


VAR6 11*01 AGZ 


05438 


25 


06437 


05962 


AGAIN 


TD 


OUTPUT68.I-1*. SET 1NDEXZ 


05450 


25 


06439 


05983 




TD 


OUTPUT610.IZ 


05462 


34 


JOOOO 


00102 




RCTY 


Z 


05474 


39 


06429 


OolOC 




WATY 


OUTPUTZ 


05486 


26 


06005 


07258 


VAR 


TF 


COS.OIAGZ 


05498 


33 


05996 


OOOOO 




CF 


cos-vz 


05510 


38 


05996 


00100 




WNTY 


C0S-9Z 


05522 


11 


05983 


000-1 




AM 


1*1*10* U1Z 


05534 


11 


05496 


000-1 




AM 


VAR610.1.10* STtP FETCHZ 


05546 


24 


05983 


07227 




C 


I *N»» I VS HZ 


05558 


47 


U5438 


01100 




bNH 


AGAINZ 


05570 


34 


OOOOO 


00102 




RCTY 


Z 


05582 


34 


OOOOO 


00102 




RCTY 


z 


C5594 


38 


06198 


00100 




WNTY 


IKUDA-5.** TYPE ROTATIONSZ 


05606 


39 


06455 


00100 




WATY 


CNTZ 


05618 


26 


06250 


07227 




TF 


TEMP.NZ 


05630 


12 


06250 


000-3 




SM 


TEMP.3.10Z 


05642 


23 


06250 


07227 




M 


TEMP »N* • N%N-3nZ 


05654 


26 


062M 


00099 




TF 


TEMP.ACZ 


05666 


13 


06250 


000-5 




MM 


TEMP.5.10Z 


05678 


11 


00099 


-7748 




AM 


AC07748Z 


o5690 


21 


00096 


07227 




A 


AC-l.NZ 


057O2 


32 


00095 


OoOoO 




SF 


AC-4Z 


05714 


26 


05821 


00099 




TF 


ENDSQR&ll *ACZ 


05726 


26 


06005 


06097 




TF 


CoS.ZEROZ 


05 738 


16 


05761 


-7756 




TFM 


CHANGtMl .07758Z 



05750 26 
05762 24 
J5774 46 
05786 26 
05 798 U 
05810 1^ 
05822 47 
05834 34 
05846 39 
05858 38 
C5870 15 
w5881 
05882 38 
05894 34 
05906 34 
05918 46 
05930 39 
05942 49 
05950 
05950 39 
05962 36 
05974 49 
05982 

07 7 58 
07258 
C7247 
07248 
07237 
07227 
05983 
05985 
05995 
C6005 
060 06 
C6009 
02 246 
02248 
02284 
' 02282 
06077 
06087 
06U97 
06099 
C6167 



U6U04 
J5798 
06005 
^5760 
v5761 
O575o 
uOOOo 
U6099 
C5996 
u5982 
1 

05982 
00000 
00000 
05950 
06263 
05962 



06249 
01100 
06250 
OuO-1 
- jOOC 
01100 

0^102 
00100 
0010c 

00400 
00102 
00102 
002 CO 

00100 
00000 



06323 00100 
00000 0^500 
OGOOo OuOOO 



1225 
50 
10 
1 

10 
2 
2 
2 
10 
10 
1 

3v 
2 
2 
2 
2 
10 
10 
10 
30 
1 J 



00010 
00010 



LMDS'.jR C 



PHASE2 



CALL3 



E Lt MM 
DUG 
L 

KM 2 
DELTA 
N 
I 
J 

SIN 
COS 

HK. 

CMP AT K 
I 1 
Jl 
Kl 
K 

ONE 
HALF 
ZEkC 
MESS2 
AI I 



KCTY 
WATY 
WNTY 

TON 
DC 

WiMCU 

KCTY 

KCTY 

BC2 

WATY 

B 

DOKG 
WATY 
RNCD 
B 

DC KG 
D'66 

usa 

OS 

DC 

OS 

D5 

^S 

OS 

DS 

DS 

DC 

DAC 

05 

DS 

DS 

DS 

DC 

DC 

DC 

DAC 

DS 



r •. •• p » .'vooc 1 

C^S-1.TE'-'.P-1Z 
»&24Z 
CGS.TtKPZ 
CnA.Ntjc.Ol 1 1 » 1 OZ 
CriAKLit!. 1 1 tOZ 
CrtANOt 2 
I 

!»iESS^Z 
COS-*Z 
1-12, 
l."--.*Z 
I-1Z 
Z 

z 

CALL3Z . 
ENDZ 

CALL 36 1 2Z 
*-3Z 

PHASE 3 • t t 1NSTRUCT10NSZ 
O.i. LOAD PHASL 3 LO ADtkZ 
00»». EXECUTE LOADEKZ 
*-3Z 

PHASE 2 CONSTA\TSZ 
1225.10.775UZ 
50 tl0.7258Z 
10t7247Z 
1.2.724BZ 
10.7237Z 
2»7227Z 
2Z 
2Z 
10Z 
10Z 
1»«Z 

30«LOAD Pit> 

2 ♦ 1 uio-ez 
2.1 UI610Z 

2.HIT&10Z 
2.HIT68Z 

10»5110000000Z 
10»5O5OOOO00uZ 
10»0Z 

30 .MAXIMUM AIJ.%1 NOT # Jo, 
10Z 



,L 2 UI.'TPUT-HIT STA.VT'*Z 



<?Z 



9? 



06177 
06187 
06197 
06203 
06213 
06223 
06233 
06240 
06250 
06260 
00u99 
06263 
06301 
06311 
06321 
06213 
06223 
06323 
06419 
06429 
06455 
06489 
02178 



10 
10 
10 

6 
10 
10 
10 

7 
10 
10 

15 
10 
10 
10 
10 
10 
48 
5 
13 
13 
10 



AJJ 


OS 


10Z 


A1J 


DS 


10Z 


A1M1AJ 


DS 


10Z 


IKUDA 


DC 


6.0(!?Z 


NtwAl I 


DC 


10. OZ 


NEWAJJ 


DC 


10.0Z 


NEWA1J 


DC 


10»0Z 


TAN225 


DC 


7.5041421Z 


TEMP 


DS 


10Z 


TEMP2 


DS 


10Z 


AC 


DS 


.9 9Z 


END 


DAC 


15 .END OF Pi«OLRA.>iSZ 


S2 


DS 


I0Z 


SC 


DS 


10Z - 


C2 


DS 


10Z 


Al K 


DS 


iO.NEWAI IZ 


AJK. 


DS . 


10 .NtvJAJJZ 


PHASE3 


DAC 


4o. EIGENVALUES DONt 


EEGUAL 


DAC 


5»t H <s>Z 


OUTPUT 


DAC 


13 1 ASOOn n @l 


CNT 


DAC 


13» ROTATIONS. SZ 


SQKT2 


DC 


1O.5070710678Z 




DLND 


ENTRYZ 



3 LOADS » HIT STAP..T?Z 



PHASE 3 
BASIC 1620 CARD SYSTEMS 
SPS LISTING 



TH IS I S PHASE 3 - EIGENVECTOR COMPUTE BASIC CARD 1620 



02178 


15 


02419 


00-01 


# 

ENTRY 


TDM 


z 

SWU1.1.9. 1 0FF2 


02190 


16 


02427 


000-1 




TFM 


OUTI.l.lOt 1*1Z 


02202 


34 


ouooo 


00102 




RCTY 


2 


02214 


34 


00000 


00102 




RCTY 


2 


02226 


39 


03859 


00100 




WATY 


MESSGEZ 


02238 


34 


00000 


00102 




RCTY 


Z 


02250 


34 


coooo 


00102 




RCTY 


Z 


02262 


48 


02273 


02273 


HALT 


H 


TEMP.TEMPZ 


C2 274 


16 


o2429 


000-1 




TFM 


OUTJ.1.10Z 


02286 


16 


o23C4 


-40O8 


CLEAR 


TFM 


SET Ifr6 .MATRI XZ 


02298 


26 


04008 


03957 


SETI 


TF 


•MATRIX. ZEROZ 


02310 


11 


02303 


OGO-l 




AM 


*-7.1.10» DATA AREA#OZ 


02322 


14 


02301 


OOOKO 




CM 


SETI&3.2O.10Z 


02334 


47 


02296 


01200 




8NE 


SETIZ 


02 346 


16 


<- 2364 


-40C8 


ALISET 


TFM 


ALLI66. MATRIX.. 18-32Z 


02358 


26 


u4u08 


03947 


ALL I 


TF 


MATRI X .ONE . . 18-32Z 


02370 


11 


02363 


O00L3 




AM 


•-7.33.10. 18-32Z 


02382 


14 


02364 


J4238 


ALL I 2 


CM 


ALLI&6. 14238,. 18-322 


02394 


47 


02358 


01.100 




BNH 


ALLIZ 


024i-6 


36 


03826 


ooSOO 


READN 


RNCD 


N-1Z 


02416 


4* 


02626 


OoOOO 


SWl 


b 


PASS2FZ 


o2430 


16 


o2993 


000-1 




TFM 


ISET&11.1.10. SET 1Z 


02442 


14 


03829 


0u0L2 




CM 


N.32.10Z 


02454 


46 


02546 


01100 




bH 


OVER32Z 


02466 


26 


03165 


03829 


UNDR33 


TF 


FUNCTN.NZ 


02478 


16 


02866 


-3678 




TFM 


LSTRCD.MATKIX-330Z 


02490 


13 


03829 


0o0L3 




MM 


N.33.10Z 


025o2 


21 


1.2864 


00099 




A 


LSTRCD-l.ACZ 


02514 


15 


3003 


00001 




TDM 


SW2&1.1.. 2 OFFZ 


02526 


26 


02889 


03829 




TF 


ICMPAR611.NZ 


02538 


49 


02722 


COOOO 




IS 


READZ 


o2546 










DORG 


*-3Z 


w-2 546 


ib 


« 3 1 o 6 


o*0L2 


GVtrc32 


TFM 


FUNCTN.32 .102 


02558 


lb 


02bb5 


-3996 




TFM 


LSTRCD,MATR1X-10Z 


02570 


13 


03829 


0O0L2 




MM 


N.32.10Z 


^2582 


21 


02864 


0O099 




A 


LSTRCD-l.ACZ 


02594 


lb 


02889 


OoOL2 




TFM 


ICMPAR&11.32.10Z 


o2 6~b 


15 


„ J JU i 


U.;U0V 




TL»i 


S*/261»9.» 2 ONZ 


^2bl8 


49 


^nit 






6 


Rt ADZ 


o262t> 










DORb 


*-3Z 


02626 


26 


v/3165 


03829 


PASS2F 


TF 


FUNCTN.NZ 


02b3B 


12 


03165 


0U0L2 




SM 


FUNCTN.32.10Z 



C 1 



v e. o p o 


lo 


^ 2 6 to 5 


— 3 3 i? b 








02662 


13 


u 3829 


0O0L3 




MM 


W.33.10Z 


02674 


21 


J2864 


OvC99 




A 


LSTRCD-1 » ACZ 


02666 


lb 


03003 


OuOol 




ToM 


S*2£>lil»» 2 OFFZ 


026.98 


26 


02b89 


38 29 




TF 


1CKPAK&U tNZ 


02710 


16 


02993 


L- 3 




TM 


lSLT611>3:>.10t SLT iil 


02722 


36 


-3832 


0^500 


KEAD 


KNCU 


I-li.t READ I.J.S.CZ 


02734 


45 


03106 


03832 




ONR 


C0MPUT.I-1Z 


32746 


16 


02841 


-4008 


TYPEV 


TFW 


OUT&ll .MATKIXZ 


02758 


25 


03965 


02426 




TO 


TYPEt»6.0UTl-lZ 


02770 


25 


03967 


02427 




TO 


TYPE&8.0UTIZ 


02782 


25 


03971 


02428 




TO 


TYPEIV12.0UTJ-1Z 


02794 


2b 


J3973 


02429 




TJ 


TYPtfcl4,0UTJZ 


C28u6 


34 


00000 


0C102 




RCTY 


Z 


02818 


39 


03959 


00100 




WAT Y 


TYPEZ 


02830 


26 


03855 


04008 


OUT 


TF 


COS»MATRlXt» TYPE VIJZ 


02842 


38 


03846 


OO1O0 




WMT Y 


CUS-9Z 


02854 


14 


02841 


-0000 


TEST 


CM 


OUT&ll. LAST RtCOROZ 


C2866 


46 


03002 


01200 




BE 


SW2Z 


02878 


14 


02427 


-0000 


ICMPAR 


CM 


OUTI... N OR 32Z 


02890 


46 


02934 


01300 




bNL 


JSETZ 


029U2 


11 


02427 


000-1 




AM 


OUTI.1.10* IfclZ 


02914 


11 


o2840 


GuO-l 




AM 


OUT&10.1.10Z 


C2926 


49 


02758 


OoOOO 




tl 


TYPEV612Z 


02934 










OORlj 


*-3Z 


02934 


11 


02429 


000-1 


JSET 


AM 


OUTJ.1.10. J&IZ 


02946 


16 


02841 


-3688 




TFM 


OUT&11.MATRIX-320Z 


02958 


13 


02429 


000L2 




MM 


OUTJ.32.10Z 


02970 


21 


0284u 


0O099 




A 


OUT&10.ACZ 


02982 


16 


02427 


-0000 


IStIT 


TFM 


OUTI » » . 1 OR 33Z 


02994 


49 


02758 


OuOoO 




d 


TYPEV&12Z 


03002 










DORG 


*-3Z 


03002 


49 


03050 


OOOOO 


SW2 


b 


PASS2Z 


03014 


34 


OOOoO 


C0102 




RCTY 


Z 


03026 


39 


03989 


00100 




WATY 


PAUMSGZ 


03038 


48 


03O49 


03049 


TRICK 


H 


TRICK2.TKICK2. . fcNDZ 


03050 


15 


02419 


00009 


PASS2 


TOM 


Swl&1.9.» 1 ONZ 


03062 


16 


02427 


0C0L3 




TFM 


OUTI.33.10. I#33Z 


03074 


16 


02357 


J4248 




TFM 


AL I SET&l 1 .MATRI X&10240Z 


03086 


16 


02393 


J9858 




TFM 


ALLI2&11.1985BZ 


03J98 


49 


02202 


OOOOO 




b 


ENTRY&24Z 


03106 










DORG 


*-3Z 


03106 


16 


03213 


-3688 


COMPUT 


TFM 


VKIADD&11.MATR1X-320Z 


03118 


13 


03833 


000L2 




MM 


I »32.10.A*AUn#320%l-la&MATRIXZ 


03130 


21 


03212 


00099 




A 


VKIADD&10.ACZ 


03142 


26 


03797 


03213 




TF 


END&ll.VKlADD&UZ 


03154 


11 


03796 


-3165 


ADDF 


AM 


END&10.FUNCTNZ 


03166 


16 


03225 


-3688 




TFM 


VKJADD&ll »MATRIX-320Z 


03178 


13 


03835 


0J0L2 




MM 


J» 32» 10»A%AUn*320%J-ln&MATRIX2 


03190 


21 


03224 


00099 




A 


VKJADD&10.ACZ 


C3202 


26 


03927 


OOOOO 


VKI ADD 


TF 


VKI,.. STORE VMZ 


03214 


26 


03937 


OOOOO 


' VKJADD 


TF 


VKJ... STORE VKJZ 


03226 


45 


03474 


03837 




BNR 


HRDWAY . J&2. * THETA NOT 45 DEGZ 


03238 


25 


3049 


03836 




TD 


TRICK.2.J&1.. 8 OR FLAG 8Z 


03250 


26 


02273 


03927 




TF 


TEMP. VKI Z 


03262 


16 


00469 


-3297 




FA 


TEMP. VKJ., VKI&VKJZ 


03274 


16 


00445 


-2273 








03286 


49 


00422 


-3937 








03298 


16 


0C469 


-3333 




FM 


'TEMP.S0RT2Z 


03310 


26 


01260 


02273 








03322 


49 


01262 


-3827 








03334 


26 


02273 


Cu099 




TF 


TEMP.ACZ 


03346 


16 


00469 


-3381 




FS 


VKJ,VUZ 


03358 


16 


00445 


-3937 








03370 


49 


00402 


-3927 








03382 


16 


00469 


-3417 




FM 


VKJ.TRICK2,, DIFFERfcNCEZ 


03394 


26 


01260 


03937 








03406 


49 


01262 


-3049 








03418 


44 


03714 


038 36 




8NF 


STORE. J&IZ 


03430 


26 


03927 


00099 


NEGTVE 


TF 


VKI »AC2 


03442 


26 


C0099 


02273 




TF 


AC.TEMPZ 


03454 


26 


02273 


03927 




TF 


TEMP.VKIZ 


03466 


49 


03714 


OOOOO 




B 


STOREZ 


03474 










DORG 


*-3Z 


03474 


16 


OU469 


-3509 


HRDWAY 


FM 


VKI. COS.. VKI*COSZ 


03486 


26 


01260 


03927 








03498 


49 


01262 


-3855 








03510 


26 


02273 


00C99 




TF 


TEMP.ACZ 


03522 


16 


00469 


-3557 




FM 


VKJ^SINZ 


03534 


26 


01260 


03937 








03546 


49 


01262 


-3645 








03558 


16 


00469 


-3593 




FA 


TEMP. AC. »VKI*C&VO*S#VKJZ 


03570 


16 


00445 


-2273 








03582 


49 


00422 


-0099 








03594 


16 


00469 


-3629 




FM 


VKI.SINZ 


03606 


26 


>U260 


03927 








03618 


49 


01262 


-3845 








03630 


26 


03927 


00099 




TF 


VKI.ACZ 


03642 


16 


00469 


-3677 




FM 


VKJ.COSZ 


03654 


26 


01260 


03937 









03666 


4V 


U1262 


-3855 








03678 


16 


;>046V 


-3713 




FS 


AC>VIU »»VKJ*C-VK.I*S#VKJZ 


03690 


16 


U0445 


-0099 








03702 


49 


O04C2 


-3927 








03714 


26 


J3732 


03213 


STORE 


TF 


*618»VKIADD&11Z 


03726 


26 


00000 


02273 






»TEMPft STORE VK.1Z 


03738 


26 


03756 


03225 




TF 


*618»VKJA0D{»112 


03750 


26 


00000 


00099 




TF 


»AC»» STORE VKJZ 


03762 


11 


03212 


000-1 




AM 


VtUADD&10»l»10. I&1Z 


03774 


11 


J3224 


000-1 




AM 


VKJADD610.1. 10. JbU 


03786 


14 


03213 


- J00O 


END 


CM 


VKIADD&ll » . » TtST ENDZ 


03798 


47 


O3202 


01200 




BNE 


VKIADDZ 


03810 


49 


02722 


00000' 




B 


READZ 


03816 










DORG 


*-3Z 










* 
* 




PHASE 3 CONSTANTSZ 

Z 


00099 








AC 


OS 


• 99Z 


03049 




10 




TR1CK2 


DC 


10 1-50707 10678, TRICK61 12 


03827 




10 




SQHT2 


DC 


10.5070710678Z 


02273 








TEMP 


OS 


.MALT&11Z 


03829 




2 




N 


OS 


2Z 


C3830 




1 




RM 


DC 


1»9Z 


03831 




1 




DUMMY 


DS 


12 


03833 




2 




I 


DS 


21 


03835 




2 




J 


DS 


21 


03645 




10 




SIN 


DS 


10Z 


03855 




10 




COS 


DS 


10Z 


03656 




1 




KM2. 


DC 


1 »«z 


03859 




3j 




MESSGE 


DAC 


30fL0AD PHASE 2 OUTPUT HIT 


03927 




10 




VKI 


DS 


10Z 


03937 




10 




VKJ 


DS 


102 


02427 




2 




OUTI 


DS 


2»SWlt9Z, 


02429 




2 




OUTJ 


DS 


2.SWH11Z 


03165 




5 




FUNCTN 


DS 


5.ADDF611Z 


02865 




5 




LST-KCD 


DS 


5.TEST&11Z 


03947 




10 




ONE 


DC 


10.5110000000Z 


03957 




10 




ZERO 


DC 


10, -OZ 


03959 




' IS 




TYPE 


DAC 


15, VKOOiOOo * «Z 


03989 




* 




PAUMSG 


DAC 


4,EN0«Z 


04008 




1600 


00010 


MATRIX 


DSB 


1600,10, 04008Z 


02178 










DEND 


ENTRY* 



PHASE 2 

1620 CARD SYSTEMS WITH DIVIDE AND INDIRECT ADDRESSING 
SPS LISTING 



HO 



02178 
02190 
02202 
02214 
02226 
02238 
02250 
02262 
02274 
02286 
02298 
02310 
02322 
02334 
02346 
02358 
02370 
02382 
02394 
02406 
02418 
02430 
02442 
02454 
02466 
02478 
02486 
H074S6 
024*1 
02510 
02522 
02534 
02546 
01551 
02170 
02182 
02594 
02606 
02618 



15 U0401 

16 06142 
16 u5923 
16 05925 
16 02256 
15 04915 

24 -7751 
47 04B54 

15 04915 

16 02321 
21 02320 
26 06107 
16 02357 
21 02356 
26 06117 
26 02393 
11 02393 
26 06127 
26 06137 
16 00469' 
16 00445 
49 00402 
47 U24B6 
26 06173 

25 06190 
49 02654 

26 00099 
16 00469 
16 00445 
49 00422 
16 00469 
21 01260 
49 01422 

24 00096 
47 03014 

25 06190 
16 U0469 

26 01260 



00-01 
-uOOO. 

euo-i 

000-2 
-7751 
OOOOl 
07240 
01300 
00009 
-7248 
05923 
OOOOC 
-7248 
05925 
00000 
02256 
000-7 
00000 
06107 
-2441 
-6137 
-6117 
01200 
06037 
06127 
00000 

06137 
-2533 
-0099 
-0099 
-2569 
06127 
-0099 
06110 
01900 
00099 
-2641 
06137 



* PHA 
* 

ENTRY 
START 

I Ul 
CMP ARE 

HIT 
I ADD 
JADD 
AIJADD 



SKIP 2 



ANGUT 



SE 2 


- EIGENVALUES COMPUTE 
Z 


16 


TEM 


HUl . 1 I7£ 




1 r i v i 






TFM 


I » 1 » 1U » l»U 




TFM 


i _ o Hi . 1 £ ? 7 
JtCllUf J*£C 




TFM 


^^iDAUtti lit 1 . CL'T Ck 

CMr AKttrb » r / !> 1 • t it 1 


ARCHZ 


TDM 


Sft 16 1 » 1 » » I Orri 




C 


7751 »E-7»i.'t»LtSS THAN 


fcZ 


UL 


STEPI... ***«NO HIU 




TDM 


SM161.9.. 1 ONZ 




TFM 


1ADD611. 7248.. SET I 


ADDZ . 


A 


i Annr m.i 'Ail ii)n7 
lAUUCrlutl.. Mil 




T c 

T r 


All. U£ 




TFM 


JADD&l 1»0'*4BZ 




A 


JADD610.J*. A%AJjaZ 




TF 


AJJ.OZ 




TF 


•635.CMPARE66Z 




AM 


♦623.7,10. AIJ ADDZ 




TF 


AIJ.OZ 




TF 


AlMIAJ.AtIZ 




FS 


A1MIAJ.AJJ.. AI-AJZ 




BNZ 


SK1P2Z 




TF 


NEWAI JtZEROZ 




TO 


TEMP.AIJZ 




b 


FORMA I Z 




DORG 


*-3Z 




TF 


AC.AIMIAJZ 




FA 


AC. AC. 2«AI-AJaZ 




FD 


A1J.ACZ 





1620 W/DIV & IDA 



C 96.TAN225.. ALPHA TO TAN 22.S2 

BL SINCOS... JUMP IF ALPHA SMALLZ 

TO TEMP. AC. ALPHA SI&NZ 

FM AIMIAJ.HALFZ 



-02630 


49 


U1262 


-6*27 








02642 


26 


06173 00099 




TF 


NBWAlJ#AO. AIJZ 


02694 


26 


06153 


06117 


FORMA 1 


TF 


NEWAI I »AJJ2 


02*6* 


16 


00469 


-2701 




FA 


NEWAI I. All.. AlfrAJZ 


02678 


16 


00445 


-6153 








02690 


49 


00422 


-6107 








02-202 


16 


04469- 


^2J37 




-FM 


NEWAIUHALFZ 


02714 


24 


01260 


06153 








02*2* 


49 


01262 


-6027 








02738 


26 


06151 


00099 




TF 


NEWAIWAC*. 1/2%AI&AJQZ 


02750 


26 


06163 


06153 




TF 


NEWAJJ.NEWA1 IZ 


02762 


16 


00469 


-2797 




FS . 


NEWAI 1 .AIJZ 


02774 


16 


00445 


-6153 








02786 


49 


00402 


-6127 








02798 


16 


00469 


-2833 




FA 


NEWAJJ.AI JZ 


02810 


16 


00445 


-6163 








02822 


49 


00422 


-6127 








02834 


15 


04531 


00009 




TDM 


SM261.9.* SW2 UNZ 


02846 


15 


05927 


00000 




TDM 


J&2Z 


02857 




1 






DC 


l*t»*Z 


02658 


44 


02902 


06190 




flNF 


PLUS.TEMP.. IS ALPHA-Z 


02870 


15 


U5926 


0000Q 


MINUS 


TDM 


J&1.8.11Z 


02882 


15 


o5187 


UOOOl 




TDK, 


SW3&1.1.. Si* 3 OFFZ 


02894 


49 


04046 


00000 




<3 


STOREZ 


02902 










DORG 


•-3Z 


02902 


15 


05926 


00008 


PLUS 


TDK 


J&1.8Z 


02914 


15 


05187 


00009 




TDM 


SW361.9,. SW3 ONZ 


02926 


26 


0619C 


06153 




TF 


TEMP.NEWAIIZ 


02938 


26 


06153 


06163 




TF 


NEWA1I.NEWAJJZ 


02950 


26 


06163 


06190 




TF 


NEWAJJ.TEMP., SWITCH AI-AJZ 


C2962 


44 


J2994 


06173 




bNF 


♦&32.NEWAIJZ 


02974 


33 


06173 


00000 




CF 


NEWAI J* . t INVERT AIJ SIGNZ 


02986 


49 


04046 


OOOOO 




B 


STOREZ 


02994 










OORG 


•-M 


02994 


32 


06173 


00000 




SF 


NEWA1JZ 


03006 


49 


04046 


ooooo 




6 


STOREZ 


03014 










DORG 


»-3Z 


03014 


26 


06251 


00099 


SI NCOS 


TF 


SC. AC. GAMMA2 


03026 


16 


00469 


-3061 




FA 


AC. AC. 2 GAHMAZ 


03038 


16 


00445 


-0099 








03J50 


49 


00422 


-0099 








03062 


26 


06241 


00099 




TF 


S2.ACZ 


03O74 


16 


o0469 


-3109 




FM 


SC.SCZ 


03086 


26 


01260 


06251 








03098 


49 


01262 


-6251 









ft- 



3110 26 
03122 16 
03134 16 
03146 49 
03 lid 26 
03170 16 
03182 26 
03194 4V 
032j6 26 
C3218 26 
03230 16 
03242 16 
03254 49 
03266 16 
03276 26 
C3290 49 
033^2 26 
03314 16 
03326 26 
03338 49 
03350 26 
03362 26 
03374 16 
03386 16 
03398 49 
03410 16 
03422 26 
03434 49 
C3446 26 
03458 16 
03470 26 
03482 49 
03494 26 
03506 26 
03518 16 
03530 16 
03542 49 
03554 16 
03566 26 
03578 49 
03590 16 
03602 16 
03614 49 
01626 26 
03638 16 



05945 
00469 
u044S> 
00422 
06190 
O0469 
01260 
01422 
o5935 
6 2 u 
^0469 
u0445 
00402 
00469 
01260 
01422 
05945 
u0469 
01260 
01262 
06261 
C6241 
00469 
o0445 
00402 
00469 
01260 
01262 
06251 
00469 
01260 
01262 
06190 
00099 
00469 
00445 
00402 
00469 
01260 
01262 
O0469 
00445 
00402 
06173 
00469 



CoC99 
-3157 
-o099 
-6017 
00099- 
-3205 
0024] 
-6190 
00099 
00017 
-326 5 
-6200 
-5945 
-3301 
06200 
-6190 
Oo099 
-3349 
05945 
-5945 
00099 
06017 
-3409 
-6241 
-6261 
-3445 
05935 
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